home *** CD-ROM | disk | FTP | other *** search
/ Libris Britannia 4 / science library(b).zip / science library(b) / PROGRAMM / PASCAL / 0391B.ZIP / INLINE2.ARC / INLINE.DOC next >
Text File  |  1986-07-28  |  12KB  |  331 lines
  1.  
  2.  
  3.  
  4.  
  5.  
  6.  
  7.  
  8.                                                        July 28, 1986
  9.  
  10.                                   INLINE ASSEMBLER
  11.                                     Version 2.02
  12.  
  13.  
  14.           OVERVIEW
  15.  
  16.           INLINE.COM is an assembler designed to produce Inline 8086/8088 
  17.           and 8087 code for Turbo Pascal (tm) version 3 programs.  Like 
  18.           other assemblers, INLINE accepts as input an assembly language 
  19.           source file and produces an object file.  However, in this case, 
  20.           the 'object' file is an ASCII file consisting of Inline 
  21.           statements which may be inserted into the Turbo Pascal program.
  22.  
  23.           Figure 1 illustrates a Pascal function with Inline code generated 
  24.           by INLINE using the source file of Figure 2.
  25.  
  26.  
  27.           LOADING AND RUNNING INLINE
  28.  
  29.           First create a COM file, INLINE.COM, by compiling INLINE.PAS 
  30.           using the Turbo Pascal compiler.  The normal default memory 
  31.           settings are suitable.
  32.  
  33.           INLINE is called at the DOS prompt with two filename parameters 
  34.           specifying the names of the source and object files.  If no 
  35.           extensions are given, .ASM and .OBJ are used by default.  For 
  36.           instance,
  37.  
  38.             INLINE ABC DEF
  39.  
  40.           will cause INLINE to look for a source file, ABC.ASM, and create 
  41.           an object file, DEF.OBJ.  Files with no extension may be input or 
  42.           created by using a simple '.' for the extension.
  43.  
  44.           If the object filename is missing from the command line, an OBJ 
  45.           file will be created using the same name as the source file.  If 
  46.           neither filename is specified, then names will be requested once 
  47.           execution starts.
  48.  
  49.           Once execution begins, INLINE will run to completion with the 
  50.           only console output being error messages.
  51.  
  52.  
  53.           SYNTAX
  54.  
  55.           The appendix lists the mnemonics accepted by INLINE.  Syntax and 
  56.           mnemonics correspond to that used by most assemblers but note 
  57.           should be made of the following:
  58.  
  59.  
  60.  
  61.  
  62.                                      1
  63.  
  64.  
  65.  
  66.  
  67.  
  68.  
  69.  
  70.  
  71.  
  72.  
  73.  
  74.             1. Turbo Pascal symbols may be used within instruction entries 
  75.                by preceding the symbol with a '>' (16 bit symbol) or a '<' 
  76.                (8 bit symbol).  The characters '+' and '-' are considered 
  77.                part of the symbol.  This allows computations using symbols 
  78.                to be passed on to the compiler where the computation can be 
  79.                made.  For instance, in
  80.  
  81.                    MOV AX,[>SYMBOL+4]       ;'>SYMBOL+4' is passed on
  82.                    MOV AX,[BP+>SYMBOL+4]    ;again '>SYMBOL+4' is passed on
  83.                    MOV AX,>SYMBOL+4[BP]     ;also acceptable
  84.  
  85.                Note that
  86.  
  87.                    MOV AX,[>SYMBOL+4+BP]
  88.  
  89.                is not correct since the wrong instruction will be generated 
  90.                and '>SYMBOL+4+BP' will be passed on.
  91.  
  92.             2. Labels (for use with jump instructions) may be defined 
  93.                simply by appending a ':' to the first item on a line.  
  94.                Avoid using CS:, DS:, ES:, and SS: as labels, as these 
  95.                specify segment overrides.
  96.  
  97.             3. Numerical entries are assumed to be decimal unless preceded 
  98.                by a '$' indicating a hexadecimal entry.  Characters within 
  99.                single quotes may be used for numerical entries as:
  100.  
  101.                    CMP AL,'a'
  102.  
  103.             4. Square brackets are used to indicate 'contents of'.  If no 
  104.                square brackets are used, an immediate operand is assumed.
  105.  
  106.                    MOV AX,[>DATA]  ;Load AX with the contents of DATA.
  107.                    MOV AX,>DATA    ;Load AX with DATA.
  108.  
  109.             5. Instruction prefixes and segment override prefixes may 
  110.                precede the instruction on the same line or may be included 
  111.                on a previous line.  A colon is optional after the segment 
  112.                prefix.
  113.  
  114.                    ES: MOV AX,[1234]    ;ok
  115.                    REPNE MOVSB          ;ok
  116.                    MOV AX,ES:[1234]     ;incorrect syntax for INLINE
  117.  
  118.             6. Comments may be included in the source.  They are delimited 
  119.                by a ';'.
  120.  
  121.             7. Instructions which don't clearly specify the data size 
  122.                require that BYTE PTR, WORD PTR, DWORD PTR, QWORD PTR, or 
  123.                TBYTE PTR be used.  These may be abbreviated by using the 
  124.                first two letters.
  125.  
  126.  
  127.  
  128.                                      2
  129.  
  130.  
  131.  
  132.  
  133.  
  134.  
  135.  
  136.  
  137.  
  138.  
  139.  
  140.                    INC BYTE PTR [>BDATA]
  141.                    DEC WO >WARRAY[DI]
  142.                    FLD QWORD [>DBL_REAL]
  143.  
  144.             8. JMP instructions may use SHORT, NEAR, or FAR (they should 
  145.                not be abbreviated).  In the absence of one of these words, a 
  146.                SHORT jump will be encoded if the label is already defined 
  147.                and is within range.  If the label is not defined, a NEAR 
  148.                JMP will be encoded unless SHORT is used.
  149.  
  150.                A FAR CALL or JMP may be made to a direct address by stating 
  151.                both the segment and offset separated by a colon.
  152.  
  153.                    CALL FAR $1234:$5678
  154.  
  155.  
  156.           RESTRICTIONS
  157.  
  158.           The object file is limited to 32k.  This includes comments and 
  159.           spaces.
  160.  
  161.           Symbols (including any addons from + and -) are limited to 32 
  162.           characters.
  163.  
  164.           Labels may be used in jump statements only and not as data 
  165.           references.  While there is a DB pseudo-opcode, it is not very 
  166.           useful with this restriction.
  167.  
  168.           The number of statement labels that may be defined is limited 
  169.           only by the heap space available.
  170.  
  171.  
  172.           VERSIONS
  173.  
  174.           2.00  Added 8087 instructions.
  175.           2.01  Fixed bug which wiped out INT $A vector.
  176.           2.02  Fixed bug which prevented labels from starting with BY, WO, 
  177.                 DW, QW, and TB.
  178.  
  179.           (C) Copyright 1985,86 by L. David Baldwin.
  180.  
  181.           INLINE may be copied and distributed freely providing that no fee 
  182.           is charged and it is not part of a package for which a charge is 
  183.           made.
  184.  
  185.           Please report all bugs, suggestions, and problems to Dave 
  186.           Baldwin, CompuServe ID #76327,53.
  187.                22 Fox Den Rd., (Summer)     144 13th St. East,  (Winter)
  188.                Hollis, NH 03049             Tierra Verde, FL 33715
  189.                (603) 465-7857               (813) 867-3030
  190.  
  191.                Turbo Pascal is a trademark of Borland International Inc.
  192.  
  193.  
  194.                                      3
  195.  
  196.  
  197.  
  198.  
  199.  
  200.  
  201.  
  202.  
  203.  
  204.  
  205.  
  206.  
  207.           FUNCTION SCAN(LIMIT :INTEGER; CH :CHAR; VAR T ): INTEGER;
  208.           {SCAN LIMIT CHARACTERS FOR CH. RETURN THE NUMBER OF CHARACTERS
  209.            SKIPPED TO FIND A MATCH.  IF NOT FOUND, RETURN RESULT=LIMIT.
  210.            LIMIT MAY BE NEGATIVE FOR A BACKWARDS SCAN.}
  211.           BEGIN    {SCAN MUST BE FAST--USE ASSEMBLY LANGUAGE}
  212.           Inline(
  213.             $FC             {    CLD              ;ASSUME FORWARD}
  214.             /$8A/$46/<CH    {    MOV AL,<CH[BP]   ;CHAR TO SEARCH FOR}
  215.             /$8B/$4E/<LIMIT {    MOV CX,<LIMIT[BP];BYTES TO SEARCH}
  216.             /$09/$C9        {    OR CX,CX         ;CHECK SIGN}
  217.             /$9C            {    PUSHF            ;SAVE FLAGS}
  218.             /$79/$03        {     JNS X1}
  219.             /$F7/$D9        {    NEG CX           ;MAKE POSITIVE}
  220.             /$FD            {    STD              ;BUT SEARCH IN REVERSE}
  221.             /$89/$CA        {X1: MOV DX,CX        ;SAVE FULL COUNT}
  222.             /$C4/$7E/<T     {    LES DI,<T[BP]    ;PTR TO START}
  223.             /$F2/$AE        {    REPNE: SCASB     ;SEARCH}
  224.             /$75/$01        {     JNE X2}
  225.             /$41            {    INC CX           ;FOUND A MATCH}
  226.             /$29/$CA        {X2: SUB DX,CX        ;FIND COUNT TO MATCH}
  227.             /$9D            {    POPF}
  228.             /$79/$02        {     JNS X3}
  229.             /$F7/$DA        {    NEG DX           ;MAKE NEGATIVE IF REVERSE}
  230.             /$89/$56/$0C    {X3: MOV [BP+$C],DX   ;PUT IN FUNCTION RESULT}
  231.           );
  232.           END;
  233.  
  234.                      Figure 1: Pascal Function using Inline Code
  235.  
  236.  
  237.               CLD              ;ASSUME FORWARD
  238.               MOV AL,<CH[BP]   ;CHAR TO SEARCH FOR
  239.               MOV CX,<LIMIT[BP];BYTES TO SEARCH
  240.               OR CX,CX         ;CHECK SIGN
  241.               PUSHF            ;SAVE FLAGS
  242.                JNS X1
  243.               NEG CX           ;MAKE POSITIVE
  244.               STD              ;BUT SEARCH IN REVERSE
  245.           X1: MOV DX,CX        ;SAVE FULL COUNT
  246.               LES DI,<T[BP]    ;PTR TO START
  247.               REPNE: SCASB     ;SEARCH
  248.                JNE X2
  249.               INC CX           ;FOUND A MATCH
  250.           X2: SUB DX,CX        ;FIND COUNT TO MATCH
  251.               POPF
  252.                JNS X3
  253.               NEG DX           ;MAKE NEGATIVE IF REVERSE
  254.           X3: MOV [BP+$C],DX   ;PUT IN FUNCTION RESULT
  255.  
  256.                             Figure 2:  INLINE Input File
  257.  
  258.  
  259.  
  260.                                      4
  261.  
  262.  
  263.  
  264.  
  265.  
  266.  
  267.  
  268.  
  269.  
  270.  
  271.  
  272.  
  273.  
  274.           APPENDIX
  275.  
  276.             8086/8088 Opcode Mnemonics Recognized by INLINE
  277.  
  278.                   AAA       HLT       JNE       LOOPNZ    ROR    
  279.                   AAD       IDIV      JNG       LOOPZ     SAHF   
  280.                   AAM       IMUL      JNGE      MOV       SAL    
  281.                   AAS       IN        JNL       MOVSB     SAR    
  282.                   ADC       INC       JNLE      MOVSW     SBB    
  283.                   ADD       INT       JNO       MUL       SCASB  
  284.                   AND       INTO      JNP       NEG       SCASW  
  285.                   CALL      IRET      JNS       NOP       SHL    
  286.                   CBW       JA        JNZ       NOT       SHR    
  287.                   CLC       JAE       JO        OR        SS     
  288.                   CLD       JB        JP        OUT       STC    
  289.                   CLI       JBE       JPE       POP       STD    
  290.                   CMC       JC        JPO       POPF      STI    
  291.                   CMP       JCXZ      JS        PUSH      STOSB  
  292.                   CMPSB     JE        JZ        PUSHF     STOSW  
  293.                   CMPSW     JG        LAHF      RCL       SUB    
  294.                   CS        JGE       LDS       RCR       TEST   
  295.                   CWD       JL        LEA       REP       WAIT   
  296.                   DAA       JLE       LES       REPE      XCHG   
  297.                   DAS       JMP       LOCK      REPNE     XLAT   
  298.                   DB        JNA       LODSB     REPNZ     XOR    
  299.                   DEC       JNAE      LODSW     REPZ   
  300.                   DIV       JNB       LOOP      RET    
  301.                   DS        JNBE      LOOPE     RETF   
  302.                   ES        JNC       LOOPNE    ROL    
  303.  
  304.  
  305.             8087 Opcode Mnemonics Recognized by INLINE
  306.  
  307.                   F2XM1     FDIVRP    FLD       FNOP      FSTP   
  308.                   FABS      FENI      FLD1      FNSAVE    FSTSW  
  309.                   FADD      FFREE     FLDCW     FNSTCW    FSUB   
  310.                   FADDP     FIADD     FLDENV    FNSTENV   FSUBP  
  311.                   FBLD      FICOM     FLDL2E    FNSTSW    FSUBR  
  312.                   FBSTP     FICOMP    FLDL2T    FPATAN    FSUBRP 
  313.                   FCHS      FIDIV     FLDLG2    FPREM     FTST   
  314.                   FCLEX     FIDIVR    FLDLN2    FPTAN     FXAM   
  315.                   FCOM      FILD      FLDPI     FRNDINT   FXCH   
  316.                   FCOMP     FIMUL     FLDZ      FRSTOR    FXTRACT
  317.                   FCOMPP    FINCSTP   FMUL      FSAVE     FYL2X  
  318.                   FDECSTP   FINIT     FMULP     FSCALE    FYL2XP1
  319.                   FDISI     FIST      FNCLEX    FSQRT     FWAIT  
  320.                   FDIV      FISTP     FNDISI    FST    
  321.                   FDIVP     FISUB     FNENI     FSTCW  
  322.                   FDIVR     FISUBR    FNINIT    FSTENV 
  323.  
  324.  
  325.  
  326.                                      5
  327.  
  328.  
  329.  
  330.  
  331.